home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / assembler-tools / apathysource / intro / make4bitpic.amos / make4bitpic.amosSourceCode
Encoding:
AMOS Source Code  |  1980-02-03  |  598 b   |  27 lines
  1. Load Iff "!intro:intro/alex1.iff",0
  2.  
  3. Reserve As Work 16,80*64/2
  4. COUNT=0
  5.  
  6. For Y=0 To 127 Step 2
  7.    For X=0 To 159 Step 2*2
  8.       A1=Point(X,Y) and %1111
  9.       A2=Point(X+1,Y) and %1111
  10.       A3=Point(X,Y+1) and %1111
  11.       A4=Point(X+1,Y+1) and %1111
  12.       A=(A1+A2+A3+A4)/4.0+0.5
  13.  
  14.       B1=Point(X+2,Y) and %1111
  15.       B2=Point(X+1+2,Y) and %1111
  16.       B3=Point(X+2,Y+1) and %1111
  17.       B4=Point(X+1+2,Y+1) and %1111
  18.       B=(B1+B2+B3+B4)/4.0+0.5
  19.  
  20.       BYTE=A*16+B
  21.  
  22.       Poke Start(16)+COUNT,BYTE
  23.       Add COUNT,1
  24.    Next 
  25. Next 
  26.  
  27. Bsave "!intro:intro/Alex1.4bit",Start(16) To Start(16)+Length(16)